﻿Imports Negocio
Public Class frmFormulario3

    Dim servicio As New DocumentoClienteBultoDetalleNegocio

    Dim pedido As String = ""
    Dim bulto As String = ""

    Sub New(codPedido As String, codBulto As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.pedido = codPedido
        Me.bulto = codBulto
    End Sub

    Private Sub frmFormulario3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Text = "PEDIDO : " & pedido

        cargarDetalle()
    End Sub

    Sub cargarDetalle()
        Dim ds As DataSet = servicio.listarDetalleBulto(bulto)

        dgvDetalle.DataSource = ds.Tables(0)

        If ds.Tables(0).Rows.Count <> 0 Then
            dgvDetalle.Rows(0).Selected = False
        End If

        lblCantidad.Text = "Cantidad de Items : " & dgvDetalle.Rows.Count
    End Sub

End Class